home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / ACC_CPX / MABOOG / BOOTPCPW.Q < prev    next >
Encoding:
Text File  |  1989-06-16  |  1.7 KB  |  60 lines
  1. ;--------------------------------------
  2. ;      Bootsektor-Pictureleser
  3. ;      Passwordabfrage
  4. ;      Monochromeversion
  5. ;      Version 1.11mono
  6. ;      (c)1989 by Martin Möller
  7. ;                 Klopstockweg 23
  8. ;                 4440 Rheine
  9. ;--------------------------------------
  10. ; Liest Bild PICTURE.PIC von Disk A:
  11. ; Bild liegt im Screenformat vor
  12. ;--------------------------------------
  13.        move.w #$00,$482   ; kein Command.Prg laden
  14.        move.w #$04,-(sp)  ; getrez
  15.        trap #14           ; do it!
  16.        addq.l #2,sp
  17.        cmp.w #2,D0        ; if rez=high
  18.        bne.s error        ; nein, dann error!
  19.        move.w #2,-(sp)    ; read/write
  20.        pea fname          ; A:\PICTURE.PIC
  21.        move.w #$3D,-(sp)  ; Fopen
  22.        trap #1
  23.        addq.l #8,sp
  24.        tst.w D0
  25.        bmi error
  26.        move.w d0,d7       ; Handle nach D7
  27.        move.w #$02,-(sp)  ; Physbase
  28.        trap #14
  29.        addq.l #2,sp
  30.        move.l D0,-(sp)    ; Physbase
  31.        move.l #32000,-(sp) ; Bilddaten
  32.        move.w d7,-(sp)    ; Handle
  33.        move.w #$3f,-(sp)  ; Fread
  34.        trap #1
  35.        add.l #12,sp
  36.        move.w d7,-(sp)    ; Handle
  37.        move.w #$3E,-(sp)  ; Fclose
  38.        trap #1
  39.        addq.l #4,sp
  40. error: move.w #3,D6
  41.        lea buff,a5
  42. lp1:   move.w #$07,-(sp) ; Crawcin
  43.        trap #1
  44.        addq.l #2,sp
  45.        move.b d0,(a5)+
  46.        dbf D6,lp1
  47.        move.l buff,D1     ; INPUT nach D1
  48.        cmp.l #'1606',D1  ;
  49.        bne.s loop       
  50.        clr.l D0           ; all right!
  51.        rts                ; return if you want!
  52. loop:  bra.s loop    
  53.        align.w
  54. hndl:  dc.w $0000
  55. fname: dc.b "A:\picture.pic",$00
  56.        align.l
  57. buff:  dc.b 0,0,0,0,0
  58.        end
  59.